home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Musica
/
ZMUD32.ZIP
/
ZMUD.EXE
/
0
/
RCDATA
/
TSOUNDDLG
/
TSOUNDDLG.txt
Wrap
Text File
|
1997-06-09
|
25KB
|
781 lines
object SoundDlg: TSoundDlg
Left = 202
Top = 193
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Sounds'
ClientHeight = 331
ClientWidth = 564
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object OKBtn: TBitBtn
Left = 320
Top = 278
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 402
Top = 278
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 484
Top = 278
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object HelpPanel: TPanel
Left = 0
Top = 311
Width = 564
Height = 20
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object TabbedNotebook1: TTabbedNotebook
Left = 4
Top = 0
Width = 557
Height = 273
TabsPerRow = 6
TabFont.Color = clBtnText
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 4
object TTabPage
Left = 4
Top = 24
Caption = 'General'
object Label54: TLabel
Left = 94
Top = 106
Width = 59
Height = 13
Alignment = taRightJustify
Caption = 'Beep Sound'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 392
Top = 104
Width = 21
Height = 21
Hint = 'Select sound|'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555500000000000555550000000000
05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
5555550000055555555555000005555555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Left = 416
Top = 104
Width = 21
Height = 21
Hint = 'Test sound|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
OnClick = SpeedButton5Click
end
object Label55: TLabel
Left = 85
Top = 130
Width = 68
Height = 13
Alignment = taRightJustify
Caption = 'Startup Sound'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 392
Top = 128
Width = 21
Height = 21
Hint = 'Select sound|'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555500000000000555550000000000
05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
5555550000055555555555000005555555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton6: TSpeedButton
Left = 416
Top = 128
Width = 21
Height = 21
Hint = 'Test sound|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
OnClick = SpeedButton6Click
end
object Label1: TLabel
Left = 79
Top = 154
Width = 74
Height = 13
Alignment = taRightJustify
Caption = 'Connect Sound'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton3: TSpeedButton
Left = 392
Top = 152
Width = 21
Height = 21
Hint = 'Select sound|'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555500000000000555550000000000
05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
5555550000055555555555000005555555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object SpeedButton7: TSpeedButton
Left = 416
Top = 152
Width = 21
Height = 21
Hint = 'Test sound|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
OnClick = SpeedButton7Click
end
object Label2: TLabel
Left = 65
Top = 178
Width = 88
Height = 13
Alignment = taRightJustify
Caption = 'Disconnect Sound'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton4: TSpeedButton
Left = 392
Top = 176
Width = 21
Height = 21
Hint = 'Select sound|'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555500000000000555550000000000
05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
5555550000055555555555000005555555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton4Click
end
object SpeedButton8: TSpeedButton
Left = 416
Top = 176
Width = 21
Height = 21
Hint = 'Test sound|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
OnClick = SpeedButton8Click
end
object Image1: TImage
Left = 128
Top = 8
Width = 32
Height = 32
AutoSize = True
end
object Label3: TLabel
Left = 168
Top = 16
Width = 329
Height = 13
Caption = 'Select .WAV files to be played for various system events'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object EnableSound: TCheckBox
Left = 80
Top = 56
Width = 100
Height = 17
Hint = '|Disable or enable ALL sound in zMUD'
Alignment = taLeftJustify
Caption = 'Enable Sounds'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object BeepSound: TEdit
Left = 168
Top = 104
Width = 217
Height = 21
Hint = '|Sound to be played by #BEEP command'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object StartupSound: TEdit
Left = 168
Top = 128
Width = 217
Height = 21
Hint = '|Sound to be played when zMUD is started'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object ConnectSound: TEdit
Left = 168
Top = 152
Width = 217
Height = 21
Hint = '|Sound to be played when connected to a MUD'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DisconnectSound: TEdit
Left = 168
Top = 176
Width = 217
Height = 21
Hint = '|Sound to be played when disconnected from the MUD'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'MSP'
object Image2: TImage
Left = 184
Top = 8
Width = 32
Height = 32
AutoSize = True
end
object Label4: TLabel
Left = 224
Top = 16
Width = 286
Height = 13
Caption = 'The MUD Sound Protocol (MSP) is used by to trigger sounds'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 236
Top = 30
Width = 297
Height = 13
Caption = 'Select MSP sounds in the list on the left to enable/disable/map'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 8
Width = 73
Height = 13
Caption = 'MSP Sounds'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 168
Top = 8
Width = 9
Height = 233
Shape = bsLeftLine
end
object AliasText: TLabel
Left = 175
Top = 98
Width = 42
Height = 13
Alignment = taRightJustify
Caption = 'Filename'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 236
Top = 44
Width = 194
Height = 13
Caption = 'Sounds in red could not be found on disk'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SoundName: TLabel
Left = 224
Top = 78
Width = 305
Height = 13
AutoSize = False
Caption = 'filename'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton9: TSpeedButton
Left = 484
Top = 96
Width = 21
Height = 21
Hint = 'Select sound|'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555500000000000555550000000000
05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
5555550000055555555555000005555555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton9Click
end
object SpeedButton10: TSpeedButton
Left = 508
Top = 96
Width = 21
Height = 21
Hint = 'Test sound|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
OnClick = SpeedButton10Click
end
object Label8: TLabel
Left = 184
Top = 78
Width = 33
Height = 13
Alignment = taRightJustify
Caption = 'Trigger'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object sClass: TLabel
Left = 224
Top = 64
Width = 305
Height = 13
Caption = 'sClass'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 192
Top = 64
Width = 25
Height = 13
Alignment = taRightJustify
Caption = 'Class'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SoundList: TListBox
Left = 0
Top = 120
Width = 185
Height = 81
ExtendedSelect = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 0
Visible = False
end
object Enable: TCheckBox
Left = 224
Top = 126
Width = 137
Height = 17
Hint = '|Enable or disable the selected MSP sound'
Caption = 'Enable this sound'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object SoundFile: TEdit
Left = 224
Top = 96
Width = 255
Height = 21
Hint =
'|Actual sound file to be played when this MSP trigger is receive' +
'd'
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object GroupBox1: TGroupBox
Left = 224
Top = 152
Width = 305
Height = 89
Caption = ' General MSP Options '
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object EnableMSP: TCheckBox
Left = 21
Top = 32
Width = 172
Height = 17
Hint = '|Enable or Disable MUD Sound Protocol (MSP)'
Caption = 'Enable MUD Sound Protocol'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object EchoMSP: TCheckBox
Left = 21
Top = 48
Width = 172
Height = 17
Hint = '|Echo the MSP triggers to the screen'
Caption = 'Echo MSP triggers'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object SoundClass: TComboBox
Left = 8
Top = 24
Width = 154
Height = 21
Hint = '|Select class of sounds to display in list'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 4
OnChange = SoundClassChange
OnDropDown = SoundClassDropDown
OnExit = SoundClassExit
end
object SoundGrid: TDrawGrid
Left = 8
Top = 48
Width = 153
Height = 193
Hint = '|Double click sound to toggle enable/disable'
ColCount = 2
DefaultRowHeight = 15
DefaultDrawing = False
FixedCols = 0
RowCount = 20
FixedRows = 0
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goRowSelect, goThumbTracking]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 5
OnClick = SoundGridClick
OnDblClick = SoundGridDblClick
OnDrawCell = SoundGridDrawCell
ColWidths = (
14
135)
end
object BitBtn1: TBitBtn
Left = 356
Top = 120
Width = 85
Height = 27
Caption = 'Enable Class'
Default = True
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = EnableClassBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object BitBtn2: TBitBtn
Left = 444
Top = 120
Width = 85
Height = 27
Caption = 'Disable Class'
Default = True
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = DisableClassBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelBtn: TBitBtn
Left = 178
Top = 214
Width = 27
Height = 27
Hint = 'Delete sound trigger'
TabOrder = 8
OnClick = DelBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
end
end
object OpenWav: TOpenDialog
DefaultExt = 'wav'
FileEditStyle = fsEdit
Filter = 'Wav Files|*.wav|MIDI Files|*.mid|All Files|*.*'
InitialDir = '\windows\media'
Top = 280
end
end